home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  475b  |  27 lines
  1. 0 rem box-demo 1
  2. 5 :
  3. 10 sys 32168
  4. 20 :
  5. 30 rem texte nach b$(), farben nach f()
  6. 35 rem  anzahl nach bn
  7. 40 bn=10 :dim b$(bn),f(bn)
  8. 50 for b=1 to bn
  9. 60 b$(b)="box"+str$(b)
  10. 70 f(b)=(f(b-1)+1)and15 :if f(b)<2 then f(b)=2
  11. 80 next
  12. 90 :
  13. 100 (NULL) :z=0 :s=0
  14. 110 for b=1 to bn
  15. 120 s2=s+len(b$(b))+1
  16. 130 if s2>39 then z=z+3 :s=0 :goto 120
  17. 140 (NULL) z+1,s+1,f(b),b$(b)
  18. 150 (NULL) f(b),z,s,z+2,s2
  19. 160 (NULL)b,z,s,z+2,s2,f(b)+128
  20. 170 s=s2+1
  21. 180 next b
  22. 190 :
  23. 200 b=5
  24. 210 (NULL) b
  25. 220 :
  26. 230 (NULL) 10,1,"sie haben nr."+str$(b)+" ausgewaehlt !"
  27.